#如果需要后台挂起可以使用nohup命令
#nohup Rscript ./run.r &

pr <- plumber::plumb("plumber.R")
pr$run(host = "0.0.0.0", port =5689)
